function []=proj_info(project_ID)

try
    cn_str = 'PROVIDER=SQLOLEDB; Data Source=PIA1; initial catalog=ExpLog; User ID=explog_user; password=Keller123';
    DB = adodb_connect(cn_str, 240);
    sql = 'SELECT Stacks.stackid, Stacks.expid, Stacks.comment, Experiments.siteid, Experiments.analysiscode, Sites.animalid, Sites.project, Animals.pi FROM Stacks INNER JOIN Experiments ON Stacks.expid=Experiments.expid INNER JOIN Sites ON Experiments.siteid=Sites.siteid INNER JOIN Animals ON Sites.AnimalID=Animals.AnimalID';
    ExpLog = adodb_query(DB, sql);
    DB.release;
    
    proj_inds=find(strcmp(ExpLog.project,project_ID));
    user=unique(ExpLog.pi(proj_inds));
    
    [site_IDs,sites_in_rows]=unique(cell2mat(ExpLog.siteid(proj_inds)),'first');
    animals=ExpLog.animalid(proj_inds(sites_in_rows));
    comments=ExpLog.comment(proj_inds(sites_in_rows));
    
    
    disp(['Report for project ' project_ID ' - PI: ' user{1}])
    
    
    for ind=1:length(site_IDs)
        fprintf(['Site: ' num2str(site_IDs(ind)) ' \t' animals{ind} ' \t' comments{ind} '\n'])
    end
catch
    disp('Project ID not found in DB');
end


